100 REM   ***   PROGRAMM NR.3   ***
110 :
120 IFZ=0THENZ=1:LOAD"GRAFIK MODUL",8,1
130 CLS=938:PLOT=820
140 :
150 X0=160:Y0=100  :REM  MITTELPUNKT
160 XR=90 :YR=80   :REM  X & Y-RADIUS
170 W =.5          :REM  DREHWINKEL
180 :
190 POKE53265,59:POKE53272,24:PRINT"[147]"
200 SYS CLS
210 :
220 T=SIN(W*(null)/180):S=SQR(1-T*T):X=0:Y=1
230 FORA=0TO90STEPW
240 SYS PLOT,X0+X*XR,Y0+Y*YR
250 SYS PLOT,X0+X*XR,Y0-Y*YR
260 SYS PLOT,X0-X*XR,Y0+Y*YR
270 SYS PLOT,X0-X*XR,Y0-Y*YR
280 X1=S*X+T*Y:Y1=S*Y-T*X:Y=Y1:X=X1
290 NEXTA
300 :
310 POKE198,0:WAIT198,1:GETA$
320 :
330 POKE53265,27:POKE53272,21
340 END
350 :